| Filename | (eval 1107)[/usr/share/perl5/Sub/Quote.pm:5] |
| Statements | Executed 45 statements in 303µs |
| Eval Invoked At | /usr/share/perl5/Sub/Quote.pm line 5 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 5 | 2 | 2 | 45µs | 428µs | DBIx::Class::Storage::BlockRunner::_set_failed_attempt_count |
| 1 | 1 | 1 | 10µs | 18µs | Sub::Quote::BEGIN@4.2969 |
| 1 | 1 | 1 | 6µs | 6µs | Method::Generate::Accessor::BEGIN@10.2970 |
| 1 | 1 | 1 | 6µs | 6µs | DBIx::Class::Storage::BlockRunner::BEGIN@21 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | { | ||||
| 2 | 2 | 1µs | my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}}; | ||
| 3 | 1 | 300ns | my $_QUOTED = ${$_[1]->{"\$_QUOTED"}}; | ||
| 4 | 2 | 80µs | 2 | 26µs | # spent 18µs (10+8) within Sub::Quote::BEGIN@4.2969 which was called:
# once (10µs+8µs) by Sub::Quote::_clean_eval at line 4 # spent 18µs making 1 call to Sub::Quote::BEGIN@4.2969
# spent 8µs making 1 call to warnings::unimport |
| 5 | # spent 428µs (45+382) within DBIx::Class::Storage::BlockRunner::_set_failed_attempt_count which was called 5 times, avg 86µs/call:
# 4 times (32µs+381µs) by DBIx::Class::Storage::BlockRunner::run at line 108 of DBIx/Class/Storage/BlockRunner.pm, avg 103µs/call
# once (13µs+1µs) by DBIx::Class::Storage::BlockRunner::run at line 56 of Sub/Defer.pm | ||||
| 6 | $_QUOTED if 0; | ||||
| 7 | 4 | 400ns | $_UNQUOTED if 0; | ||
| 8 | # BEGIN quote_sub PRELUDE | ||||
| 9 | package Method::Generate::Accessor; | ||||
| 10 | # spent 6µs within Method::Generate::Accessor::BEGIN@10.2970 which was called:
# once (6µs+0s) by Sub::Quote::_clean_eval at line 15 | ||||
| 11 | 1 | 900ns | $^H = "1762"; | ||
| 12 | 1 | 500ns | ${^WARNING_BITS} = "\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377\377"; | ||
| 13 | 1 | 5µs | %^H = ( | ||
| 14 | ); | ||||
| 15 | 1 | 69µs | 1 | 6µs | } # spent 6µs making 1 call to Method::Generate::Accessor::BEGIN@10.2970 |
| 16 | # END quote_sub PRELUDE | ||||
| 17 | 8 | 12µs | do { my $self = shift; | ||
| 18 | 4 | 6µs | $self->{"failed_attempt_count"} = $_[0]; | ||
| 19 | 8 | 5µs | do { local @_ = ($self, $_[0]); # BEGIN quote_sub PRELUDE | ||
| 20 | package DBIx::Class::Storage::BlockRunner; | ||||
| 21 | # spent 6µs within DBIx::Class::Storage::BlockRunner::BEGIN@21 which was called:
# once (6µs+0s) by Sub::Quote::_clean_eval at line 26 | ||||
| 22 | 1 | 800ns | $^H = "133090"; | ||
| 23 | 1 | 300ns | ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUU"; | ||
| 24 | 1 | 6µs | %^H = ( | ||
| 25 | ); | ||||
| 26 | 1 | 88µs | 1 | 6µs | } # spent 6µs making 1 call to DBIx::Class::Storage::BlockRunner::BEGIN@21 |
| 27 | # END quote_sub PRELUDE | ||||
| 28 | |||||
| 29 | 4 | 22µs | 1 | 1µs | $_[0]->throw_exception( sprintf ( # spent 1µs making 1 call to DBIx::Class::Storage::BlockRunner::max_attempts |
| 30 | 'Reached max_attempts amount of %d, latest exception: %s', | ||||
| 31 | $_[0]->max_attempts, $_[0]->last_exception | ||||
| 32 | )) if $_[0]->max_attempts <= ($_[1]||0); | ||||
| 33 | }; | ||||
| 34 | 4 | 900ns | $_[0]; | ||
| 35 | } } | ||||
| 36 | 1 | 1µs | $$_UNQUOTED = \&DBIx::Class::Storage::BlockRunner::_set_failed_attempt_count | ||
| 37 | } | ||||
| 38 | 1 | 3µs | 1; | ||
| 39 | |||||
| 40 | ; |